/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / PrintXobj Folder / PrintXobj.MM / PrintXobj.MM.rsrc / VWCI_1025

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 02 1d a5 24 | 00 00 00 01 00 00 00 00 |.......$|........|
|00000010| 00 05 00 00 00 00 00 00 | 0a 72 00 00 0a 72 00 00 |........|.r...r..|
|00000020| 0a 72 00 00 0a 72 00 00 | 0a 72 6f 6e 20 6d 6f 75 |.r...r..|.ron mou|
|00000030| 73 65 55 70 0d 20 20 0d | 20 20 2d 2d 20 53 61 6d |seUp.  .|  -- Sam|
|00000040| 70 65 20 50 72 69 6e 74 | 58 6f 62 6a 20 73 63 72 |pe Print|Xobj scr|
|00000050| 69 70 74 20 20 0d 20 20 | 2d 2d 20 62 79 20 56 61 |ipt  .  |-- by Va|
|00000060| 68 8e 20 4b 2e 2c 20 49 | 6e 74 8e 67 72 61 74 69 |h. K., I|nt.grati|
|00000070| 6f 6e 20 49 6e 63 2e 20 | 28 35 31 34 29 20 38 37 |on Inc. |(514) 87|
|00000080| 31 2d 32 38 37 31 0d 20 | 20 0d 20 20 2d 2d 20 54 |1-2871. | .  -- T|
|00000090| 68 69 73 20 73 61 6d 70 | 6c 65 20 73 63 72 69 70 |his samp|le scrip|
|000000a0| 74 20 64 65 73 63 72 69 | 62 65 73 20 61 6c 6c 20 |t descri|bes all |
|000000b0| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 61 6c 69 74 |the func|tionalit|
|000000c0| 69 65 73 20 6f 66 20 50 | 72 69 6e 74 58 6f 62 6a |ies of P|rintXobj|
|000000d0| 2e 0d 20 20 2d 2d 20 54 | 68 69 73 20 69 73 20 61 |..  -- T|his is a|
|000000e0| 6e 20 22 61 6c 6c 20 64 | 72 65 73 73 65 64 22 20 |n "all d|ressed" |
|000000f0| 76 65 72 73 69 6f 6e 2c | 20 65 76 65 6e 20 74 68 |version,| even th|
|00000100| 6f 75 67 68 20 6d 6f 73 | 74 20 6f 66 20 74 68 65 |ough mos|t of the|
|00000110| 20 74 69 6d 65 2c 0d 20 | 20 2d 2d 20 79 6f 75 20 | time,. | -- you |
|00000120| 77 69 6c 6c 20 6e 6f 74 | 20 6e 65 65 64 20 74 6f |will not| need to|
|00000130| 20 73 65 74 20 61 6c 6c | 20 74 68 65 20 61 74 74 | set all| the att|
|00000140| 72 69 62 75 74 65 73 20 | 62 79 20 79 6f 75 72 73 |ributes |by yours|
|00000150| 65 6c 66 20 28 50 72 69 | 6e 74 58 6f 62 6a 0d 20 |elf (Pri|ntXobj. |
|00000160| 20 2d 2d 20 63 6f 6e 74 | 61 69 6e 73 20 76 65 72 | -- cont|ains ver|
|00000170| 79 20 72 65 61 73 6f 6e | 61 62 6c 65 20 64 65 66 |y reason|able def|
|00000180| 61 75 6c 74 20 76 61 6c | 75 65 73 29 0d 20 20 0d |ault val|ues).  .|
|00000190| 20 20 2d 2d 20 49 6e 20 | 61 64 64 69 74 69 6f 6e |  -- In |addition|
|000001a0| 20 74 6f 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e | to the |followin|
|000001b0| 67 73 2c 20 50 72 69 6e | 74 58 6f 62 6a 20 72 65 |gs, Prin|tXobj re|
|000001c0| 61 63 74 73 20 74 6f 20 | 74 68 65 20 6d 52 65 70 |acts to |the mRep|
|000001d0| 6f 72 74 0d 20 20 2d 2d | 20 6d 65 74 68 6f 64 2e |ort.  --| method.|
|000001e0| 20 20 54 79 70 69 6e 67 | 20 22 70 75 74 20 70 4f |  Typing| "put pO|
|000001f0| 62 6a 28 6d 52 65 70 6f | 72 74 29 22 20 69 6e 20 |bj(mRepo|rt)" in |
|00000200| 74 68 65 20 6d 65 73 73 | 61 67 65 20 62 6f 78 20 |the mess|age box |
|00000210| 6c 69 73 74 73 0d 20 20 | 2d 2d 20 74 68 65 20 63 |lists.  |-- the c|
|00000220| 75 72 72 65 6e 74 20 61 | 74 74 72 69 62 75 74 65 |urrent a|ttribute|
|00000230| 73 20 6f 66 20 74 68 65 | 20 70 4f 62 6a 20 28 66 |s of the| pObj (f|
|00000240| 6f 6e 74 20 6e 75 6d 62 | 65 72 2c 20 66 6f 6e 74 |ont numb|er, font|
|00000250| 20 73 69 7a 65 2c 20 2e | 2e 2e 29 0d 20 20 0d 20 | size, .|..).  . |
|00000260| 20 2d 2d 20 41 73 20 66 | 6f 72 20 61 6e 79 20 58 | -- As f|or any X|
|00000270| 6f 62 6a 65 63 74 2c 20 | 79 6f 75 20 63 61 6e 20 |object, |you can |
|00000280| 61 6c 73 6f 20 74 79 70 | 65 20 22 70 72 69 6e 74 |also typ|e "print|
|00000290| 58 6f 62 6a 28 6d 44 65 | 73 63 72 69 62 65 29 22 |Xobj(mDe|scribe)"|
|000002a0| 20 74 6f 20 0d 20 20 2d | 2d 20 67 65 74 20 61 20 | to .  -|- get a |
|000002b0| 6c 69 73 74 20 6f 66 20 | 61 6c 6c 20 74 68 65 20 |list of |all the |
|000002c0| 6d 65 74 68 6f 64 73 20 | 73 75 70 70 6f 72 74 65 |methods |supporte|
|000002d0| 64 20 62 79 20 50 72 69 | 6e 74 58 6f 62 6a 2e 0d |d by Pri|ntXobj..|
|000002e0| 20 20 0d 20 20 2d 2d 20 | 66 69 72 73 74 2c 20 6d |  .  -- |first, m|
|000002f0| 61 6b 65 20 6c 69 62 72 | 61 72 79 20 61 63 63 65 |ake libr|ary acce|
|00000300| 73 73 69 62 6c 65 20 74 | 6f 20 79 6f 75 72 20 6d |ssible t|o your m|
|00000310| 6f 76 69 65 0d 20 20 2d | 2d 20 74 68 69 73 20 69 |ovie.  -|- this i|
|00000320| 73 20 75 73 65 6c 65 73 | 73 20 69 66 20 74 68 65 |s useles|s if the|
|00000330| 20 58 4f 42 4a 20 72 65 | 73 6f 75 72 63 65 20 69 | XOBJ re|source i|
|00000340| 73 20 69 6e 73 74 61 6c | 6c 65 64 20 69 6e 20 79 |s instal|led in y|
|00000350| 6f 75 72 20 6d 6f 76 69 | 65 0d 20 20 4f 70 65 6e |our movi|e.  Open|
|00000360| 58 6c 69 62 20 22 50 72 | 69 6e 74 58 6f 62 6a 22 |Xlib "Pr|intXobj"|
|00000370| 0d 20 20 0d 20 20 2d 2d | 20 63 72 65 61 74 65 20 |.  .  --| create |
|00000380| 61 6e 20 69 6e 73 74 61 | 6e 63 65 20 6f 66 20 74 |an insta|nce of t|
|00000390| 68 65 20 58 6f 62 6a 65 | 63 74 2e 20 20 54 68 69 |he Xobje|ct.  Thi|
|000003a0| 73 20 69 73 20 74 68 65 | 20 6d 61 6e 64 61 74 6f |s is the| mandato|
|000003b0| 72 79 20 66 69 72 73 74 | 0d 20 20 2d 2d 20 77 68 |ry first|.  -- wh|
|000003c0| 65 6e 20 75 73 69 6e 67 | 20 58 6f 62 6a 65 63 74 |en using| Xobject|
|000003d0| 73 0d 20 20 70 75 74 20 | 50 72 69 6e 74 58 6f 62 |s.  put |PrintXob|
|000003e0| 6a 28 6d 4e 65 77 29 20 | 69 6e 74 6f 20 70 4f 62 |j(mNew) |into pOb|
|000003f0| 6a 0d 20 20 0d 20 20 2d | 2d 20 74 65 6c 6c 20 74 |j.  .  -|- tell t|
|00000400| 68 65 20 58 6f 62 6a 65 | 63 74 20 77 68 69 63 68 |he Xobje|ct which|
|00000410| 20 74 65 78 74 20 79 6f | 75 20 77 69 73 68 20 74 | text yo|u wish t|
|00000420| 6f 20 70 72 69 6e 74 0d | 20 20 70 4f 62 6a 28 6d |o print.|  pObj(m|
|00000430| 53 65 74 54 65 78 74 2c | 20 66 69 65 6c 64 20 41 |SetText,| field A|
|00000440| 32 32 29 0d 20 20 0d 20 | 20 2d 2d 20 69 66 20 79 |22).  . | -- if y|
|00000450| 6f 75 20 77 69 73 68 20 | 74 6f 20 70 72 69 6e 74 |ou wish |to print|
|00000460| 20 77 69 74 68 20 74 68 | 65 20 64 65 66 61 75 6c | with th|e defaul|
|00000470| 74 20 61 74 74 72 69 62 | 75 74 65 73 20 28 66 6f |t attrib|utes (fo|
|00000480| 6e 74 2c 20 66 6f 6e 74 | 20 73 69 7a 65 2e 2e 2e |nt, font| size...|
|00000490| 29 0d 20 20 2d 2d 20 79 | 6f 75 20 63 61 6e 20 69 |).  -- y|ou can i|
|000004a0| 6d 6d 65 64 69 61 74 6c | 79 20 69 73 73 75 65 20 |mmediatl|y issue |
|000004b0| 74 68 65 20 70 4f 62 6a | 28 6d 50 72 69 6e 74 29 |the pObj|(mPrint)|
|000004c0| 20 63 6f 6d 6d 61 6e 64 | 2e 0d 20 20 2d 2d 20 4f | command|..  -- O|
|000004d0| 74 68 65 72 77 69 73 65 | 2c 20 67 6f 20 74 68 72 |therwise|, go thr|
|000004e0| 6f 75 67 68 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |ough the| followi|
|000004f0| 6e 67 20 74 75 6e 65 2d | 75 70 0d 20 20 0d 20 20 |ng tune-|up.  .  |
|00000500| 2d 2d 20 73 65 74 20 66 | 6f 6e 74 2e 20 20 4f 74 |-- set f|ont.  Ot|
|00000510| 68 65 72 77 69 73 65 2c | 20 64 65 66 61 75 6c 74 |herwise,| default|
|00000520| 20 66 6f 6e 74 20 69 73 | 20 47 65 6e 65 76 61 2e | font is| Geneva.|
|00000530| 0d 20 20 70 4f 62 6a 28 | 6d 53 65 74 42 6f 64 79 |.  pObj(|mSetBody|
|00000540| 46 6f 6e 74 2c 20 22 54 | 69 6d 65 73 22 29 0d 20 |Font, "T|imes"). |
|00000550| 20 0d 20 20 2d 2d 20 73 | 65 74 20 66 6f 6e 74 20 | .  -- s|et font |
|00000560| 73 69 7a 65 2e 20 20 4f | 74 68 65 72 77 69 73 65 |size.  O|therwise|
|00000570| 2c 20 64 65 66 61 75 6c | 74 20 73 69 7a 65 20 69 |, defaul|t size i|
|00000580| 73 20 31 32 2e 0d 20 20 | 70 4f 62 6a 28 6d 53 65 |s 12..  |pObj(mSe|
|00000590| 74 42 6f 64 79 53 69 7a | 65 2c 20 31 38 29 0d 20 |tBodySiz|e, 18). |
|000005a0| 20 0d 20 20 2d 2d 20 73 | 65 74 20 66 6f 6f 74 65 | .  -- s|et foote|
|000005b0| 72 20 74 65 78 74 2e 20 | 44 65 66 61 75 6c 74 20 |r text. |Default |
|000005c0| 73 74 61 74 65 20 69 73 | 20 6e 6f 20 66 6f 6f 74 |state is| no foot|
|000005d0| 65 72 0d 20 20 70 4f 62 | 6a 28 6d 53 65 74 46 6f |er.  pOb|j(mSetFo|
|000005e0| 6f 74 65 72 2c 20 22 54 | 68 69 73 20 69 73 20 61 |oter, "T|his is a|
|000005f0| 20 6e 69 63 65 20 72 69 | 67 68 74 20 6a 75 73 74 | nice ri|ght just|
|00000600| 69 66 69 65 64 20 66 6f | 6f 74 65 72 22 29 0d 20 |ified fo|oter"). |
|00000610| 20 0d 20 20 2d 2d 20 73 | 65 74 20 66 6f 6f 74 65 | .  -- s|et foote|
|00000620| 72 20 66 6f 6e 74 2e 20 | 20 44 65 66 61 75 6c 74 |r font. | Default|
|00000630| 20 66 6f 6e 74 20 69 73 | 20 63 6f 75 72 69 65 72 | font is| courier|
|00000640| 2e 0d 20 20 70 4f 62 6a | 28 6d 53 65 74 46 6f 6f |..  pObj|(mSetFoo|
|00000650| 74 65 72 46 6f 6e 74 2c | 20 22 48 65 6c 76 65 74 |terFont,| "Helvet|
|00000660| 69 63 61 22 29 0d 20 20 | 0d 20 20 2d 2d 20 73 65 |ica").  |.  -- se|
|00000670| 74 20 66 6f 6f 74 65 72 | 20 73 69 7a 65 2e 20 20 |t footer| size.  |
|00000680| 44 65 66 61 75 6c 74 20 | 73 69 7a 65 20 69 73 20 |Default |size is |
|00000690| 39 2e 0d 20 20 70 4f 62 | 6a 28 6d 53 65 74 46 6f |9..  pOb|j(mSetFo|
|000006a0| 6f 74 65 72 53 69 7a 65 | 2c 20 31 34 29 0d 20 20 |oterSize|, 14).  |
|000006b0| 0d 20 20 2d 2d 20 73 65 | 74 20 6c 65 66 74 20 6d |.  -- se|t left m|
|000006c0| 61 72 67 69 6e 20 69 6e | 20 6e 75 6d 62 65 72 20 |argin in| number |
|000006d0| 6f 66 20 70 6f 69 6e 74 | 73 20 28 31 20 70 6f 69 |of point|s (1 poi|
|000006e0| 6e 74 20 3d 20 31 2f 37 | 32 20 69 6e 63 68 29 0d |nt = 1/7|2 inch).|
|000006f0| 20 20 2d 2d 20 44 65 66 | 61 75 6c 74 20 6c 65 66 |  -- Def|ault lef|
|00000700| 74 20 6d 61 72 67 69 6e | 20 69 73 20 32 35 20 70 |t margin| is 25 p|
|00000710| 6f 69 6e 74 73 2e 0d 20 | 20 70 4f 62 6a 28 6d 53 |oints.. | pObj(mS|
|00000720| 65 74 4c 65 66 74 4d 61 | 72 67 69 6e 2c 20 33 30 |etLeftMa|rgin, 30|
|00000730| 29 0d 20 20 0d 20 20 2d | 2d 20 73 65 74 20 74 6f |).  .  -|- set to|
|00000740| 70 20 6d 61 72 67 69 6e | 20 69 6e 20 6e 75 6d 62 |p margin| in numb|
|00000750| 65 72 20 6f 66 20 70 6f | 69 6e 74 73 2e 20 44 65 |er of po|ints. De|
|00000760| 66 61 75 6c 74 20 74 6f | 70 20 6d 61 72 67 69 6e |fault to|p margin|
|00000770| 20 69 73 20 33 30 20 70 | 6f 69 6e 74 73 2e 0d 20 | is 30 p|oints.. |
|00000780| 20 70 4f 62 6a 28 6d 53 | 65 74 54 6f 70 4d 61 72 | pObj(mS|etTopMar|
|00000790| 67 69 6e 2c 20 34 30 29 | 0d 20 20 0d 20 20 2d 2d |gin, 40)|.  .  --|
|000007a0| 20 73 65 74 20 72 69 67 | 68 74 20 6d 61 72 67 69 | set rig|ht margi|
|000007b0| 6e 20 69 6e 20 6e 75 6d | 62 65 72 20 6f 66 20 70 |n in num|ber of p|
|000007c0| 6f 69 6e 74 73 2e 20 44 | 65 66 61 75 6c 74 20 72 |oints. D|efault r|
|000007d0| 69 67 68 74 20 6d 61 72 | 67 69 6e 20 69 73 20 35 |ight mar|gin is 5|
|000007e0| 32 35 20 70 6f 69 6e 74 | 73 2e 0d 20 20 70 4f 62 |25 point|s..  pOb|
|000007f0| 6a 28 6d 53 65 74 52 69 | 67 68 74 4d 61 72 67 69 |j(mSetRi|ghtMargi|
|00000800| 6e 2c 20 35 31 35 29 0d | 20 20 0d 20 20 2d 2d 20 |n, 515).|  .  -- |
|00000810| 73 65 74 20 62 6f 74 74 | 6f 6d 20 6d 61 72 67 69 |set bott|om margi|
|00000820| 6e 20 69 6e 20 6e 75 6d | 62 65 72 20 6f 66 20 70 |n in num|ber of p|
|00000830| 6f 69 6e 74 73 2e 20 44 | 65 66 61 75 6c 74 20 72 |oints. D|efault r|
|00000840| 69 67 68 74 20 6d 61 72 | 67 69 6e 20 69 73 20 37 |ight mar|gin is 7|
|00000850| 30 30 20 70 6f 69 6e 74 | 73 2e 0d 20 20 70 4f 62 |00 point|s..  pOb|
|00000860| 6a 28 6d 53 65 74 42 6f | 74 74 6f 6d 4d 61 72 67 |j(mSetBo|ttomMarg|
|00000870| 69 6e 2c 20 36 39 30 29 | 0d 20 20 0d 20 20 0d 20 |in, 690)|.  .  . |
|00000880| 20 2d 2d 20 67 6f 20 61 | 68 65 61 64 20 61 6e 64 | -- go a|head and|
|00000890| 20 70 72 69 6e 74 2e 20 | 41 73 6b 20 6e 75 6d 62 | print. |Ask numb|
|000008a0| 65 72 20 6f 66 20 63 6f | 70 69 65 73 2c 20 65 74 |er of co|pies, et|
|000008b0| 63 2e 20 0d 20 20 2d 2d | 20 72 65 74 75 72 6e 20 |c. .  --| return |
|000008c0| 61 6e 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |an error| message|
|000008d0| 20 69 6e 20 63 61 73 65 | 20 6f 66 20 66 61 69 6c | in case| of fail|
|000008e0| 75 72 65 2e 20 20 52 65 | 74 75 72 6e 20 61 6e 20 |ure.  Re|turn an |
|000008f0| 65 6d 70 74 79 20 73 74 | 72 69 6e 67 20 6f 74 68 |empty st|ring oth|
|00000900| 65 72 77 69 73 65 2e 20 | 0d 20 20 70 75 74 20 70 |erwise. |.  put p|
|00000910| 4f 62 6a 28 6d 50 72 69 | 6e 74 29 20 69 6e 74 6f |Obj(mPri|nt) into|
|00000920| 20 45 72 72 4d 65 73 73 | 61 67 65 0d 20 20 0d 20 | ErrMess|age.  . |
|00000930| 20 69 66 20 28 45 72 72 | 4d 65 73 73 61 67 65 20 | if (Err|Message |
|00000940| 3c 3e 20 22 22 29 20 74 | 68 65 6e 20 41 6c 65 72 |<> "") t|hen Aler|
|00000950| 74 28 45 72 72 4d 65 73 | 73 61 67 65 29 20 20 0d |t(ErrMes|sage)  .|
|00000960| 20 20 0d 20 20 2d 2d 20 | 65 76 65 72 79 20 63 61 |  .  -- |every ca|
|00000970| 6c 6c 20 74 6f 20 58 6f | 62 6a 28 6d 4e 65 77 29 |ll to Xo|bj(mNew)|
|00000980| 20 6d 75 73 74 20 62 65 | 20 62 61 6c 61 6e 63 65 | must be| balance|
|00000990| 64 20 77 69 74 68 20 61 | 20 63 61 6c 6c 20 74 6f |d with a| call to|
|000009a0| 20 58 6f 62 6a 28 6d 44 | 69 73 70 6f 73 65 29 0d | Xobj(mD|ispose).|
|000009b0| 20 20 70 75 74 20 70 4f | 62 6a 28 6d 44 69 73 70 |  put pO|bj(mDisp|
|000009c0| 6f 73 65 29 0d 20 20 0d | 20 20 2d 2d 20 65 76 65 |ose).  .|  -- eve|
|000009d0| 72 79 20 63 61 6c 6c 20 | 74 6f 20 6f 70 65 6e 58 |ry call |to openX|
|000009e0| 6c 69 62 20 6d 75 73 74 | 20 62 65 20 62 61 6c 61 |lib must| be bala|
|000009f0| 6e 63 65 64 20 77 69 74 | 68 20 61 20 63 61 6c 6c |nced wit|h a call|
|00000a00| 20 74 6f 20 63 6c 6f 73 | 65 58 6c 69 62 2e 0d 20 | to clos|eXlib.. |
|00000a10| 20 2d 2d 20 59 6f 75 20 | 6d 69 67 68 74 20 77 61 | -- You |might wa|
|00000a20| 6e 74 20 74 6f 20 70 75 | 74 20 74 68 69 73 20 70 |nt to pu|t this p|
|00000a30| 61 69 72 20 6f 66 20 63 | 61 6c 6c 73 20 72 65 73 |air of c|alls res|
|00000a40| 70 65 63 74 69 76 65 6c | 79 20 22 6f 6e 20 53 74 |pectivel|y "on St|
|00000a50| 61 72 74 4d 6f 76 69 65 | 22 20 0d 20 20 2d 2d 20 |artMovie|" .  -- |
|00000a60| 61 6e 64 20 22 6f 6e 20 | 73 74 6f 70 4d 6f 76 69 |and "on |stopMovi|
|00000a70| 65 22 20 0d 20 20 63 6c | 6f 73 65 58 6c 69 62 20 |e" .  cl|oseXlib |
|00000a80| 22 50 72 69 6e 74 58 6f | 62 6a 22 0d 20 20 0d 65 |"PrintXo|bj".  .e|
|00000a90| 6e 64 20 6d 6f 75 73 65 | 55 70 20 20             |nd mouse|Up      |
+--------+-------------------------+-------------------------+--------+--------+